$file1 = "probesets_A";
$file2 = "probesets_only_B";
open(BUFF,$file1);
open(BUFF1,$file2);
open(BUFF2,"HG-U133_Plus_2.cdf");
open(WRBUFF1,">probes_u133a");
open(WRBUFF2,">probes_u133b");

while($line = <BUFF>)
{
	chomp($line);
	$hash{$line} = "A";	
}
while($line = <BUFF1>)
{
        chomp($line);
        $hash{$line} = "B";
}
while($line = <BUFF2>)
{
        if($line =~ m/Cell(\d+)/ && $line =~ m/_at/)
        {
                @line = split("\t",$line);
		#print $line[4]."\n";
                @liney = split("\=",$line[0]);
                if($line[7] eq $line[8] && $hash{$line[4]} eq "A")
                {
			print WRBUFF1 $liney[1]."\t".$line[1]."\n";
                }
		if($line[7] eq $line[8] && $hash{$line[4]} eq "B")
		{
			print WRBUFF2 $liney[1]."\t".$line[1]."\n";
		}
		
        }

}

